home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / procssng / ccs / ccs-11tl.lha / lbl / xview / genial / ui / guide_files / zoom.G < prev   
Encoding:
Text File  |  1992-07-14  |  2.0 KB  |  76 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :base-window
  5.     :name                   zmwin
  6.     :owner                  nil
  7.     :width                  256
  8.     :height                 256
  9.     :background-color       ""
  10.     :foreground-color       ""
  11.     :label                  "Zoom Window"
  12.     :label-type             :string
  13.     :initial-state          :invisible
  14.     :show-footer            nil
  15.     :resizable              t
  16.     :icon-file              ""
  17.     :icon-label             ""
  18.     :icon-mask-file         ""
  19.     :event-handler          nil
  20.     :user-data              ()
  21.     :actions                (
  22.         (
  23.         :from                   (zmwin)
  24.         :when                   (Resize )
  25.         :to                     (zmwin)
  26.         :function_type          CallFunction
  27.         :arg_type               ()
  28.         :action                 (zoom_resize_proc)
  29.         )
  30.     )
  31. )
  32. (
  33.     :type                   :canvas-pane
  34.     :name                   zmcanv
  35.     :owner                  zmwin
  36.     :help                   ""
  37.     :x                      0
  38.     :y                      0
  39.     :width                  256
  40.     :height                 256
  41.     :background-color       ""
  42.     :foreground-color       ""
  43.     :initial-state          :visible
  44.     :draggable              nil
  45.     :droppable              nil
  46.     :default-drop-site      nil
  47.     :menu                   nil
  48.     :horizontal-scrollbar   t
  49.     :scrollable-width       256
  50.     :vertical-scrollbar     t
  51.     :scrollable-height      256
  52.     :repaint-proc           zmcanv_repaint_proc
  53.     :event-handler          zmcanv_event_proc
  54.     :drawing-model          :xwindows
  55.     :user-data              ()
  56.     :actions                (
  57.         (
  58.         :from                   (zmwin zmcanv)
  59.         :when                   (Repaint )
  60.         :to                     (zmwin zmcanv)
  61.         :function_type          CallFunction
  62.         :arg_type               ()
  63.         :action                 (zmcanv_repaint_proc)
  64.         )
  65.         (
  66.         :from                   (zmwin zmcanv)
  67.         :when                   (AnyEvent )
  68.         :to                     (zmwin zmcanv)
  69.         :function_type          CallFunction
  70.         :arg_type               ()
  71.         :action                 (zmcanv_event_proc)
  72.         )
  73.     )
  74. )
  75. )
  76.